﻿Public Class MuhOdeKisiKurum
	Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				InitialHelp = "Ekle/Değiştir/Sil butonlarıyla işlemlerinizi yapın."
				Text = "Kişi/Kurum Listesi"
				AddList()
				List.AddColumns("[pk]rowid(h),adi(Kişi/Kurum adı;l;100%)")
				List.SetSQL(Remote, "select rowid,adi from muhasebe..kurum order by adi")
				List.Populate()
				Buttons.Show("Add.Edit.Delete")
			Case EventType.Add
				Dim Process As New MuhOdeKisiKurumDetay
				Process.AddArgument("rowid", 0)
				Window.Launch(Process, True)
			Case EventType.Edit, EventType.Activate
				Dim Process As New MuhOdeKisiKurumDetay
				Process.AddArgument("rowid", List.SelectedRow("rowid"))
				Window.Launch(Process, True)
			Case EventType.Delete
				If Not Confirm("Bu kişiyi/kurumu silmek istediğinizden emin misiniz?") Then Exit Sub
				'ExecSQL("update users set durum = 'P' where kaykul = @kaykul", List.SelectedRow("kaykul"))
		End Select
	End Sub

End Class

Public Class MuhOdeKisiKurumDetay
	Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Text = "Kişi/Kurum Bilgileri"
				InitialHelp = "Kişi/kurum bilgilerini girin."
				AddText("adi", "Kişi/kurum adı", "nl;width=32")
				AddCombo("odemeyeri", "Ödeme yeri", Muhasebe.OdemeYerleriSource, "nl;width=32")
				AddText("hesapno", "Hesap no.", "nl;width=32")
			Case EventType.Shown
				Buttons.Show("Save")
				If Arguments("rowid") = 0 Then Exit Sub
				Rs = Muhasebe.Odeme.KisiKurumOku(Remote, Arguments("rowid"))
				SetValues("adi,odemeyeri,hesapno", Rs("adi"), Rs("odemeyeri"), Rs("hesapno"))
			Case EventType.Save
				Muhasebe.Odeme.KisiKurumKaydet(Remote, Arguments("rowid"), Input("adi"), Input("odemeyeri"), Input("hesapno"))
				Info("Kayıt değişiklikleri gerçekleştirilmiştir.")
				'caller.Populate()
				Close()
		End Select
	End Sub

End Class
